Mac Power 1997 January

home *** CD-ROM | disk | FTP | other *** search

/ Mac Power 1997 January / macpower199701.bin / AMUG / Programming_10 / Videotoolbox 96-08-22-c.sit / VideoToolbox / (Utilities) / Quick3 / LogLikelihood.c < prev next >

MacBinary | 1994-11-01 | 1.6 KB | [TEXT/CWIE]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: LogLikelihood.c

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Nov 1 20:47:25 1994, modified Tue Nov 1 20:47:25 1994, creator 'CWIE', type ASCII, 1002 bytes "LogLikelihood.c" , at 0x46a 422 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CWIE]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 4c 6f 67 4c 69 6b | 65 6c 69 68 6f 6f 64 2e |..LogLik|elihood.|
|00000010| 63 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |c.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 57 49 | 45 01 00 00 00 00 00 00 |.TEXTCWI|E.......|
|00000050| 00 00 00 00 00 03 ea 00 | 00 01 a6 aa dc a0 2d aa |........|......-.|
|00000060| dc a0 2d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..-.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b2 10 00 00 |........|........|
|00000080| 2f 2a 0d 4c 6f 67 4c 69 | 6b 65 6c 69 68 6f 6f 64 |/*.LogLi|kelihood|
|00000090| 2e 63 0d 43 6f 70 79 72 | 69 67 68 74 20 28 63 29 |.c.Copyr|ight (c)|
|000000a0| 20 31 39 39 30 2d 34 20 | 44 65 6e 69 73 20 47 2e | 1990-4 |Denis G.|
|000000b0| 20 50 65 6c 6c 69 0d 43 | 61 6c 63 75 6c 61 74 65 | Pelli.C|alculate|
|000000c0| 20 6c 6f 67 20 6c 69 6b | 65 6c 69 68 6f 6f 64 20 | log lik|elihood |
|000000d0| 6f 66 20 74 68 65 20 64 | 61 74 61 20 66 6f 72 20 |of the d|ata for |
|000000e0| 61 20 67 69 76 65 6e 20 | 70 73 79 63 68 6f 6d 65 |a given |psychome|
|000000f0| 74 72 69 63 20 66 75 6e | 63 74 69 6f 6e 2e 0d 49 |tric fun|ction..I|
|00000100| 66 20 74 68 65 20 70 73 | 79 63 68 6f 6d 65 74 72 |f the ps|ychometr|
|00000110| 69 63 20 66 75 6e 63 74 | 69 6f 6e 20 69 6e 64 69 |ic funct|ion indi|
|00000120| 63 61 74 65 73 20 74 68 | 61 74 20 74 68 65 20 70 |cates th|at the p|
|00000130| 61 72 61 6d 65 74 65 72 | 73 20 61 72 65 20 6f 75 |arameter|s are ou|
|00000140| 74 20 6f 66 20 62 6f 75 | 6e 64 73 2c 0d 74 68 65 |t of bou|nds,.the|
|00000150| 6e 20 4c 6f 67 4c 69 6b | 65 6c 69 68 6f 6f 64 28 |n LogLik|elihood(|
|00000160| 29 20 72 65 74 75 72 6e | 73 20 74 68 65 20 6c 6f |) return|s the lo|
|00000170| 77 65 73 74 20 70 6f 73 | 73 69 62 6c 65 20 6c 6f |west pos|sible lo|
|00000180| 67 20 6c 69 6b 65 6c 69 | 68 6f 6f 64 2c 20 6d 69 |g likeli|hood, mi|
|00000190| 6e 75 73 20 69 6e 66 69 | 6e 69 74 79 2e 20 0d 49 |nus infi|nity. .I|
|000001a0| 66 20 79 6f 75 72 20 6d | 61 63 68 69 6e 65 20 64 |f your m|achine d|
|000001b0| 6f 65 73 6e 27 74 20 64 | 65 61 6c 20 69 6e 20 69 |oesn't d|eal in i|
|000001c0| 6e 66 69 6e 69 74 69 65 | 73 2c 20 74 68 65 6e 20 |nfinitie|s, then |
|000001d0| 72 65 70 6c 61 63 65 20 | 31 2e 30 2f 30 2e 30 20 |replace |1.0/0.0 |
|000001e0| 62 79 20 44 42 4c 5f 4d | 41 58 20 69 6e 0d 74 68 |by DBL_M|AX in.th|
|000001f0| 65 20 64 65 66 69 6e 69 | 74 69 6f 6e 20 6f 66 20 |e defini|tion of |
|00000200| 49 4e 46 2e 0d 0d 54 68 | 65 20 74 68 69 72 64 20 |INF...Th|e third |
|00000210| 61 72 67 75 6d 65 6e 74 | 20 69 73 20 61 20 70 6f |argument| is a po|
|00000220| 69 6e 74 65 72 20 74 6f | 20 61 20 70 73 79 63 68 |inter to| a psych|
|00000230| 6f 6d 65 74 72 69 63 20 | 66 75 6e 63 74 69 6f 6e |ometric |function|
|00000240| 2c 20 65 2e 67 2e 20 57 | 65 69 62 75 6c 6c 2e 63 |, e.g. W|eibull.c|
|00000250| 0d 0d 48 49 53 54 4f 52 | 59 3a 0d 34 2f 37 2f 39 |..HISTOR|Y:.4/7/9|
|00000260| 30 20 64 67 70 20 77 72 | 6f 74 65 20 69 74 0d 38 |0 dgp wr|ote it.8|
|00000270| 2f 32 34 2f 39 31 20 64 | 67 70 20 63 6f 73 6d 65 |/24/91 d|gp cosme|
|00000280| 74 69 63 0d 2a 2f 0d 23 | 69 6e 63 6c 75 64 65 20 |tic.*/.#|include |
|00000290| 22 51 75 69 63 6b 33 2e | 68 22 0d 0d 23 69 66 6e |"Quick3.|h"..#ifn|
|000002a0| 64 65 66 20 49 4e 46 0d | 09 23 64 65 66 69 6e 65 |def INF.|.#define|
|000002b0| 20 49 4e 46 20 28 31 2e | 30 2f 30 2e 30 29 0d 23 | INF (1.|0/0.0).#|
|000002c0| 65 6e 64 69 66 0d 0d 64 | 6f 75 62 6c 65 20 4c 6f |endif..d|ouble Lo|
|000002d0| 67 4c 69 6b 65 6c 69 68 | 6f 6f 64 28 64 61 74 61 |gLikelih|ood(data|
|000002e0| 52 65 63 6f 72 64 20 2a | 64 61 74 61 2c 70 61 72 |Record *|data,par|
|000002f0| 61 6d 52 65 63 6f 72 64 | 20 2a 70 61 72 61 6d 73 |amRecord| *params|
|00000300| 2c 0d 09 50 73 79 63 68 | 6f 6d 65 74 72 69 63 46 |,..Psych|ometricF|
|00000310| 75 6e 63 74 69 6f 6e 50 | 74 72 20 50 73 79 63 68 |unctionP|tr Psych|
|00000320| 46 75 6e 29 0d 7b 0d 09 | 64 6f 75 62 6c 65 20 4c |Fun).{..|double L|
|00000330| 4c 2c 70 3b 0d 09 6c 6f | 6e 67 20 6e 2c 69 3b 0d |L,p;..lo|ng n,i;.|
|00000340| 09 63 6f 6e 74 72 61 73 | 74 52 65 63 6f 72 64 20 |.contras|tRecord |
|00000350| 2a 63 50 74 72 3b 0d 0d | 09 4c 4c 3d 30 2e 30 3b |*cPtr;..|.LL=0.0;|
|00000360| 0d 09 66 6f 72 28 69 3d | 30 3b 69 3c 64 61 74 61 |..for(i=|0;i<data|
|00000370| 2d 3e 63 6f 6e 74 72 61 | 73 74 73 3b 69 2b 2b 29 |->contra|sts;i++)|
|00000380| 7b 0d 09 09 63 50 74 72 | 3d 26 64 61 74 61 2d 3e |{...cPtr|=&data->|
|00000390| 63 5b 69 5d 3b 0d 09 09 | 70 20 3d 20 28 2a 50 73 |c[i];...|p = (*Ps|
|000003a0| 79 63 68 46 75 6e 29 28 | 63 50 74 72 2d 3e 63 6f |ychFun)(|cPtr->co|
|000003b0| 6e 74 72 61 73 74 2c 20 | 70 61 72 61 6d 73 29 3b |ntrast, |params);|
|000003c0| 0d 09 09 69 66 28 70 3d | 3d 49 4c 4c 45 47 41 4c |...if(p=|=ILLEGAL|
|000003d0| 5f 50 41 52 41 4d 45 54 | 45 52 53 29 72 65 74 75 |_PARAMET|ERS)retu|
|000003e0| 72 6e 20 2d 49 4e 46 3b | 0d 09 09 6e 3d 63 50 74 |rn -INF;|...n=cPt|
|000003f0| 72 2d 3e 63 6f 72 72 65 | 63 74 3b 0d 09 09 69 66 |r->corre|ct;...if|
|00000400| 28 6e 3e 30 4c 29 20 4c | 4c 20 2b 3d 20 6e 2a 6c |(n>0L) L|L += n*l|
|00000410| 6f 67 28 70 29 3b 0d 09 | 09 6e 3d 63 50 74 72 2d |og(p);..|.n=cPtr-|
|00000420| 3e 74 72 69 61 6c 73 20 | 2d 20 63 50 74 72 2d 3e |>trials |- cPtr->|
|00000430| 63 6f 72 72 65 63 74 3b | 0d 09 09 69 66 28 6e 3e |correct;|...if(n>|
|00000440| 30 4c 29 20 4c 4c 20 2b | 3d 20 6e 2a 6c 6f 67 28 |0L) LL +|= n*log(|
|00000450| 31 2e 30 2d 70 29 3b 0d | 09 7d 0d 09 72 65 74 75 |1.0-p);.|.}..retu|
|00000460| 72 6e 20 4c 4c 3b 0d 7d | 0d 0d 00 00 00 00 00 00 |rn LL;.}|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 01 00 00 00 01 68 | 00 00 00 68 00 00 00 3e |.......h|...h...>|
|00000490| 0a 8e 00 00 66 2a 00 00 | 27 fc 00 00 00 00 00 00 |....f*..|'.......|
|000004a0| 00 00 00 08 00 00 00 00 | 00 00 00 0e 00 ac 00 18 |........|........|
|000004b0| 0f 4c 6f 67 4c 69 6b 65 | 6c 69 68 6f 6f 64 2e 63 |.LogLike|lihood.c|
|000004c0| 02 00 00 00 54 45 58 54 | 43 57 49 45 01 00 00 28 |....TEXT|CWIE...(|
|000004d0| 00 00 54 45 58 54 43 57 | 49 45 01 00 00 28 00 00 |..TEXTCW|IE...(..|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 a2 41 08 46 00 00 | 03 ea 00 00 01 a6 00 00 |...A.F..|........|
|00000500| 01 10 00 00 0b b8 00 00 | 01 74 00 00 00 00 00 00 |........|.t......|
|00000510| 01 50 00 00 06 ec 00 00 | 02 e8 00 00 00 00 00 00 |.P......|........|
|00000520| 00 00 00 28 00 00 00 00 | 00 00 00 46 01 cc 00 3c |...(....|...F...<|
|00000530| 00 00 00 00 01 66 00 03 | 00 09 80 00 00 78 00 00 |.....f..|.....x..|
|00000540| 0a c8 00 00 15 15 00 01 | 00 00 a2 42 da 21 a2 42 |........|...B.!.B|
|00000550| da 21 a2 42 da 21 00 16 | 00 02 00 00 00 62 42 52 |.!.B.!..|.....bBR|
|00000560| 45 4e 00 07 42 52 45 4e | 54 2e 43 00 00 01 a2 42 |EN..BREN|T.C....B|
|00000570| d1 1a a2 42 d1 1a a2 42 | d1 1a 00 14 00 02 00 00 |...B...B|........|
|00000580| 00 00 00 18 00 01 00 00 | 02 4e 00 00 02 5b 0d 4c |........|.N...[.L|
|00000590| 6f 67 4c 69 6b 65 6c 69 | 68 6f 6f 64 00 00 00 48 |ogLikeli|hood...H|
|000005a0| 00 09 4d 6f 6e 61 63 6f | 00 00 00 00 00 00 00 00 |..Monaco|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 06 00 04 00 2a | 00 03 01 8d 02 7d 00 29 |.......*|.....}.)|
|000005d0| 00 04 01 8c 02 7c aa dc | 69 25 00 00 02 f2 00 00 |.....|..|i%......|
|000005e0| 02 fb 00 00 00 00 00 00 | 00 00 01 00 00 00 01 68 |........|.......h|
|000005f0| 00 00 00 68 00 00 00 3e | 00 ad f0 90 1b ea 00 00 |...h...>|........|
|00000600| 00 1c 00 3e 00 00 4d 50 | 53 52 00 01 00 0a 03 ef |...>..MP|SR......|
|00000610| ff ff 00 00 00 00 00 00 | 00 00 03 ed ff ff 00 00 |........|........|
|00000620| 00 1c 00 ad ee 3c 00 00 | 00 00 00 00 00 00 00 00 |.....<..|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+